(previous-matching-history-element): Specify a default.

diff --git a/lisp/simple.el b/lisp/simple.el
index 2f056e9d462e4ec04b6c082c3b45e1946cb2316f..66bc7c6b2edf120daee26aa39ac8bfdb5ca29026 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -953,7 +953,8 @@ See also `minibuffer-history-case-insensitive-variables'."
                                        nil
                                        minibuffer-local-map
                                        nil
-                                       'minibuffer-history-search-history)))
+                                       'minibuffer-history-search-history
+                                       (car minibuffer-history-search-history))))
      ;; Use the last regexp specified, by default, if input is empty.
      (list (if (string= regexp "")
               (if minibuffer-history-search-history